home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / DERECE.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-05-12  |  482 b   |  13 lines
  1. 10 'SANTÿGRANTI FAHRENHAYTA,FAHRENHAYTI SANTÿGRATA ÇEVÿREN PROGRAM
  2. 20 CLS:' DERECE.BAS
  3. 30 PRINT "DERECEYI GIRIN "
  4. 40 D$=INPUT$(1):
  5. 50 D=VAL(D$):AS=ASC(D$)
  6. 60 IF D<>0  OR AS=48 OR D$="." THEN 90
  7. 70  IF D$="F" OR D$="C" THEN 100
  8. 80 SOUND 3000,3:GOTO 40
  9. 90  PRINT D$; : DE$=DE$+D$
  10. 100 IF D$="F" THEN DE=VAL(DE$):C=((DE-32)/9)*5:CLS:PRINT DE$;" °F =";C;" °C":END
  11. 110 IF D$="C" THEN DE=VAL(DE$):F=(DE/5)*9+32:CLS: PRINT DE$;" °C =";F;" °F":END
  12. 120 GOTO 40: ' MURAT NECÿOªLU
  13.